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Problem 

In some cases, the customer might need to change the current period, 
beginning date of the period, or the beginning date of the year. The only 
way to do this is by starting a new inventory system, or the customer can 
run this program: 


Solution 

1. At TRSDOS READY type in BASIC -F:l 

2. At Ready type in the following program. 

5 CLS:PRINT"ENTER THE FOLLOWING INFORMATION" 

10 INPUT'CURRENT PERIOD SYSTEM SHOULD BE IN";PD 
20 INPUT'BEGINNING DATE FOR PERIOD"; BP$ 

30 INPUT'BEGINNING DATE FOR YEAR";BY$ 

35 0PEN"R",1,"OONTROL/DAT'",96 

40 FIELDl,10ASDU$,2ASPD$,6ASDM$,9ASPB$,9ASYB$ 

50 GET1,2 

60 LSETPD$-MKI$(PD):LSETPB$«BP$:LSETYB$»BY$ 

70 PUT1,2 
80 CLOSE 

3. At Ready type RUN and answer the appropriate questions. 

NOTE: All days must be entered in the following way: Three characters 
for the month, two integers for the day, and four for the year, with no 
spaces between them. 

EXAMPLES: 

JAN011980 

MAY211980 

OCT031980 

4. At Ready type SYSTEM "IMS" 

5. When the program loads, check the period and date to make sure it is 
correct. 





















